source("plotting.R")
library(tidyverse)
library(scales)

df_one = read_csv("../shock_windows_votes.csv")
df_two = read_csv("../shock_windows_attributes.csv")

to_render = conditional_distance_replication(df_one,df_two)
#p=combine_plots_conditional_shock(to_render)
#save_plot("figures_for_paper/figure7.pdf", 
#          p, base_height = 18, base_asp = 1.5,device = cairo_pdf)

p=combine_plots_conditional_shock_default(to_render)
save_plot("figures_for_replication/figure7.pdf", 
          p, base_height = 18, base_asp = 1.5,device = cairo_pdf)